home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / gopher / Unix / go4gw_1.01 / g2snmp < prev    next >
Encoding:
Text File  |  1992-10-08  |  15.8 KB  |  555 lines
  1. #!/usr/local/bin/perl
  2. ###################################################
  3. #
  4. # Standard RCS Header information (see co(1))
  5. #
  6. # $Author: schemers $
  7. #
  8. # $Date: 1992/10/08 21:48:02 $
  9. #
  10. # $Revision: 1.1 $
  11. #
  12. # $Locker: schemers $
  13. #
  14. # $Source: /networking/src/gopher/gateways/g2snmp,v $
  15. #
  16. # $State: Exp $
  17. #
  18. # $Log: g2snmp,v $
  19. # Revision 1.1  1992/10/08  21:48:02  schemers
  20. # Initial revision
  21. #
  22. #--------------------------------------------------
  23. # Copyright (c) 1992 Board of Trustees
  24. #            Leland Stanford Jr. University
  25. ###################################################
  26. # /*
  27. #  * Redistribution and use in source and binary forms are permitted
  28. #  * provided that the above copyright notice and this paragraph are
  29. #  * duplicated in all such forms and that any documentation,
  30. #  * advertising materials, and other materials related to such
  31. #  * distribution and use acknowledge that the software was developed
  32. #  * by Stanford University.  The name of the University may not be used 
  33. #  * to endorse or promote products derived from this software without 
  34. #  * specific prior written permission.
  35. #  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  36. #  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  37. #  * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  38. #  */
  39. # 
  40. #----------------------------------------------------------------------
  41. # variables you should change:
  42.  
  43. $snmp_table = "/usr/local/bin/snmp-table";
  44.  
  45. #----------------------------------------------------------------------
  46.  
  47.  
  48. sub snmp_main {
  49.  local($_) = @_;
  50.  
  51.  if (/^$/) {
  52.     &Greply("7SNMP Agent\t$Ggw menu\t$Ghost\t$Gport");
  53.     &Greply(".");
  54.     exit(0);
  55.  }
  56.  
  57. if (/^menu\s+(.*)/i)         {  &do_menu($1);  } 
  58. elsif (/^at\s+(.*)/i)        {  &dump_at($1); }
  59. elsif (/^system\s+(.*)/i)    {  &dump_system($1); }
  60. elsif (/^interface\s+(.*)/i) {  &dump_interface($1); }
  61. elsif (/^ip\s+(.*)/i) {  &dump_ip($1); }
  62. elsif (/^icmp\s+(.*)/i) {  &dump_icmp($1); }
  63. elsif (/^tcp\s+(.*)/i) {  &dump_tcp($1); }
  64. elsif (/^udp\s+(.*)/i) {  &dump_udp($1); }
  65. else {
  66.   &Gabort("Unknown command!");
  67.   exit;
  68. }
  69.  
  70. }
  71.  
  72. sub do_menu {
  73.     local($agent)=@_;
  74.     &Greply("0Address Translation Group\t$Ggw at $agent\t$Ghost\t$Gport");
  75.     &Greply("0Interface Group\t$Ggw interface $agent\t$Ghost\t$Gport");
  76.     &Greply("0ICMP Group\t$Ggw icmp $agent\t$Ghost\t$Gport");
  77.     &Greply("0IP Group\t$Ggw ip $agent\t$Ghost\t$Gport");
  78.     &Greply("0System Group\t$Ggw system $agent\t$Ghost\t$Gport");
  79.     &Greply("0TCP Group\t$Ggw tcp $agent\t$Ghost\t$Gport");
  80.     &Greply("0UDP Group\t$Ggw udp $agent\t$Ghost\t$Gport");
  81.     &Greply(".");
  82.     exit(0);
  83. }
  84.  
  85.  
  86. chop($date=`date`);
  87.  
  88. %ifType2a = (
  89.         1, 'other',
  90.         2, 'regular1822',
  91.     3, 'hdh1822',
  92.     4, 'ddn-x25',
  93.     5, 'rfc877-x25',
  94.     6, 'ethernet-csmacd',
  95.     7, 'iso88023-csmacd',
  96.     8, 'iso88024-tokenBus',
  97.     9, 'iso88025-tokenRing',
  98.     10,' iso88026-man',
  99.     11,' starLan',
  100.     12,' proteon-10Mbit',
  101.     13,' proteon-80Mbit',
  102.     14,' hyperchannel',
  103.     15,' fddi',
  104.     16,' lapb',
  105.     17,' sdlc',
  106.     18,' ds1',
  107.     19,' e1',
  108.     20,' basicISDN',
  109.     21,' primaryISDN',
  110.     22,' propPointToPointSerial',
  111.     23,' ppp',
  112.     24,'softwareLoopback',
  113.     25,' eon,',
  114.     26,' ethernet-3Mbit',
  115.     27,' nsip',
  116.     28,' slip',
  117.     29,' ultra',
  118.     30,' ds3',
  119.     31,' sip',
  120.     32,' frame-relay'
  121. );
  122.  
  123. %ifAdminStatus2a = (1,'up',2,'down',3,'testing');
  124. %ifOperStatus2a = %ifAdminStatus2a ;
  125.  
  126. %ifRouteType2a=(1,'other',2,'invalid',3,'direct',4,'remote');
  127.  
  128. %ipNetToMediaType2a=(1,'other',2,'invalid',3,'dynamic',4,'static');
  129.  
  130. %tcpConnState2a=(1,'closed',2,'listen',3,'synSent',4,'synReceived',
  131.           5,'established',6,'finWait1',7,'finWait2',8,'closeWait',
  132.           9,'lastAck',10,'closing',11,'timeWait');
  133.  
  134. %ipForwarding2a=(1,'gateway',2,'host');
  135.  
  136. %tcpRtoAlgorithm2a = (1,'other',2,'constant',3,'rsre',4,'vanj');
  137.  
  138. sub sysServices2a {
  139.   local($x) = @_;
  140.   local($result);
  141.  
  142.   $result .= "physical, " if ($x & 1);
  143.   $result .= "data-link, " if ($x & 2);
  144.   $result .= "internet, " if ($x & 4);   
  145.   $result .= "end-to-end, " if ($x & 8); 
  146.   $result .= "application, " if ($x & 64);
  147.  
  148.   $result =~ s/, $//;
  149.   return $result;
  150. }
  151.  
  152. sub timeTicks2a {
  153.   local($ticks)= @_;
  154.   local($d,$h,$m,$s,$result);
  155.   
  156.   $ticks /= 100;
  157.  
  158.   $d = int($ticks / (60 * 60 * 24));
  159.   $ticks %= (60*60*24);
  160.  
  161.   $h = int($ticks / (60 * 60));
  162.   $ticks %= (60*60);
  163.  
  164.   $m = int($ticks/60);
  165.   $s = $ticks % 60;
  166.  
  167.   $result = sprintf("%d:%02d:%02d",$h,$m,$s);
  168.   if ($d==1) {
  169.         $result = sprintf("%d day ",$d) . $result;
  170.   } elsif ($d>1) {
  171.         $result = sprintf("%d days ",$d) . $result;
  172.   }
  173.   return $result;
  174.  
  175. }
  176.  
  177. sub hexString2a {
  178.    local($string) = @_;
  179.    local($result,$n);
  180.      
  181.    foreach (split(/:/,$string)) {
  182.        $n = oct("0x$_");
  183.        last if !$n;
  184.        $result .= sprintf("%c",$n);
  185.    }
  186.    $result;
  187. }
  188.  
  189. sub dump_system {
  190.  
  191.   local($host) = @_;
  192.   local(*int);
  193.  
  194.   &get_table($host,"system",*int);
  195.  
  196.     print "\n";
  197.     print "Host: $host\nDate: $date\n";
  198.     print "\n";
  199.     print " "*30,"System Table\n";
  200.     print "System Description\n  ", $int{"sysDescr[0]"},"\n\n";
  201.     print "UpTime       ", &timeTicks2a($int{"sysUpTime[0]"}),"\n";
  202.     print "ObjectID     ", $int{"sysObjectID[0]"},"\n";
  203.     $sysName =  $int{"sysName[0]"};
  204.     $sysContact = $int{"sysContact[0]"};
  205.     $sysLocation = $int{"sysLocation[0]"};
  206.     $sysServices = $int{"sysServices[0]"};
  207.     if ($sysName || $sysContact || $sysLocation || $sysServices) {
  208.     print "Name         $sysName\n";
  209.     print "Contact      $sysContact\n";
  210.     print "Location     $sysLocation\n";
  211.     print "Services     ",&sysServices2a($sysServices),"\n";
  212.     }
  213.     print "\n";
  214. }
  215.  
  216. sub dump_interface {
  217.   local($host) = @_;
  218.   local(*int);
  219.  
  220.   &get_table($host,"interfaces",*int);
  221.  
  222.   $number = $int{"ifNumber[0]"};
  223.     print "\n";
  224.     print "Host: $host\nDate: $date\n";
  225.     print "\n";
  226.     print " "*30,"Interface Table\n";
  227.     print "\n";
  228.  
  229.     print "Number of interfaces = $number\n";
  230.  
  231.   for ($i=1; $i <= $number; $i++) {
  232.     print "\n";
  233.    print "-"*40,"Interface $i\n";
  234.     $ifIndex = $int{"ifIndex[$i]"};
  235.     $ifDescr = &hexString2a($int{"ifDescr[$i]"});
  236.     $ifType  = $ifType2a{$int{"ifType[$i]"}};
  237.     $ifMtu   = $int{"ifMtu[$i]"};
  238.     $ifSpeed = $int{"ifSpeed[$i]"};
  239.     $ifPhysAddress = $int{"ifPhysAddress[$i]"};
  240.     $ifAdminStatus = $ifAdminStatus2a{$int{"ifAdminStatus[$i]"}};
  241.     $ifOperStatus  = $ifOperStatus2a{$int{"ifOperStatus[$i]"}};
  242.     $ifLastChange  = &timeTicks2a($int{"ifLastChange[$i]"});
  243.     $ifInOctets = $int{"ifInOctets[$i]"}+0;
  244.     $ifInUcastPkts = $int{"ifInUcastPkts[$i]"}+0;
  245.     $ifInNUcastPkts = $int{"ifInNUcastPkts[$i]"}+0;
  246.     $ifInDiscards =  $int{"ifInDiscards[$i]"}+0;
  247.     $ifInErrors = $int{"ifInErrors[$i]"}+0;
  248.     $ifInUnknownProtos = $int{"ifInUnknownProtos[$i]"}+0;
  249.     $ifOutOctets = $int{"ifOutOctets[$i]"}+0;
  250.     $ifOutUcastPkts = $int{"ifOutUcastPkts[$i]"}+0;
  251.     $ifOutNUcastPkts =$int{"ifOutNUcastPkts[$i]"}+0;
  252.     $ifOutDiscards = $int{"ifOutDiscards[$i]"}+0;
  253.     $ifOutErrors = $int{"ifOutErrors[$i]"}+0;
  254.     $ifOutQlen =  $int{"ifOutQlen[$i]"}+0;
  255. print "\n";
  256. if ($ifDescr) {  
  257. printf("Description     %s (%d)\n",$ifDescr,$ifIndex); 
  258. }
  259. else          {  
  260. printf("Description     (%d)\n",$ifIndex); 
  261. }
  262. printf("Address         $ifPhysAddress\n");
  263. printf("Type            %s\n",$ifType);
  264. printf("Mtu             %s\n",$ifMtu);
  265. printf("Speed           %s (%s)\n",$ifSpeed,int($ifSpeed/1000000)." MBS");
  266. printf("Status          %s",$ifOperStatus);
  267. if ($ifAdminStatus ne $ifOperStatus) { 
  268.       printf("(desired state: $ifAdminStatus)"); 
  269.  
  270. }
  271. if ($int{"ifLastChange[$i]"}) { print "(last config change: $ifLastChange)";}
  272. printf("\n");
  273. printf("Unknwn Proto    %s\n",$ifInUnknownProtos);
  274. printf("Output Q len    %s\n",$ifOutQlen);
  275.  
  276.  
  277. printf("Input\n");
  278. printf("  Octects       %d\n",$ifInOctects);
  279. printf("  unicast       %d\n",$ifInUcastPkts);
  280. printf("  broad/multi   %d\n",$ifInNUcastPkts);
  281. printf("  discards      %d\n",$ifInDiscards);
  282. printf("  errors        %d\n",$ifInErrors);
  283. printf("Output\n");
  284. printf("  Octects       %d\n",$ifOutOctets);
  285. printf("  unicast       %d\n",$ifOutUcastPkts);
  286. printf("  broad/multi   %d\n",$ifOutNUcastPkts);
  287. printf("  discards      %d\n",$ifOutDiscards);
  288. printf("  errors        %d\n",$ifOutErrors);
  289.  
  290.  
  291.   }
  292. }
  293.  
  294. sub dump_at {
  295.  
  296.   local($host) = @_;
  297.   local(*at);
  298.  
  299.   &get_table($host,"at",*at);
  300.  
  301.     print "\n";
  302.     print "Host: $host\nDate: $date\n";
  303.     print "\n";
  304.     print "       Address Translation Group\n";
  305.     print "\n";
  306.  
  307.     printf("%8s %17s       %s\n","Interface","Physical Addr","IP Addr");
  308.  
  309.   foreach (keys %at) {
  310.  
  311.       if (/^atIfIndex\[([^]]*)/) {
  312.          $_ = $index = $1;
  313.          ($if,$ip) = /(\d+)\.\d+\.(.*)/;
  314.          printf("   %2d       %s    %s\n",$if,$at{"atPhysAddress[$index]"},$ip);
  315.       }
  316.   }
  317.     print "\n";
  318. }
  319.  
  320.  
  321. sub dump_ip {
  322.  
  323.   local($host) = @_;
  324.   local(*ip);
  325.  
  326.   &get_table($host,"ip",*ip);
  327.  
  328.     print "\n";
  329.     print "Host: $host\nDate: $date\n";
  330.     print "\n";
  331.     print " "*10,"IP Group\n";
  332.  
  333.   print "\n";
  334.   print "Forwarding          ",$ipForwarding2a{$ip{"ipForwarding[0]"}},"\n";
  335.   print "Default TTL         ",$ip{"ipDefaultTTL[0]"}+0,"\n";
  336.   print "Input\n";
  337.   print "  Datagrams         ",$ip{"ipInReceives[0]"}+0,"\n";
  338.   print "  Hardware Err      ",$ip{"ipInHdrErrors[0]"}+0,"\n";
  339.   print "  Address Err       ",$ip{"ipInAddrErrors[0]"}+0,"\n";
  340.   print "  Unknown Proto     ",$ip{"ipInUnknownProtos[0]"}+0,"\n";
  341.   print "  Discards          ",$ip{"ipInDiscards[0]"}+0,"\n";
  342.   print "  Delivers          ",$ip{"ipInDelivers[0]"}+0,"\n";
  343.   print "Output\n";
  344.   print "  Datagrams         ",$ip{"ipOutReceives[0]"}+0,"\n";
  345.   print "  Discards          ",$ip{"ipOutDiscards[0]"}+0,"\n";
  346.   print "  No Routes         ",$ip{"ipOutNoRoutes[0]"}+0,"\n";
  347.   print "Reassembly\n";
  348.   print "  Timeout           ",$ip{"ipReasmTimeout[0]"}+0,"\n";
  349.   print "  Requests          ",$ip{"ipReasmReqds[0]"}+0,"\n";
  350.   print "  OK                ",$ip{"ipReasmOKs[0]"}+0,"\n";
  351.   print "  Fail              ",$ip{"ipReasmFails[0]"}+0,"\n";
  352.   print "Frags\n";
  353.   print "  OK                ",$ip{"ipFragOKs[0]"}+0,"\n";
  354.   print "  Fail              ",$ip{"ipFragFails[0]"}+0,"\n";
  355.   print "  Created           ",$ip{"ipFragCreates[0]"}+0,"\n";
  356.   print "Forwarded Datagrams ",$ip{"ipForwDatagrams[0]"}+0,"\n";
  357.  
  358.   $done=0;
  359.   foreach (keys %ip) {
  360.  
  361.       if (/^ipAdEntAddr\[([^]]*)/) {
  362.     if (!$done) {
  363.     print "\n";
  364.          print " "*20,"IP Interface Address Table\n";
  365.          printf("%s  %-15s %-15s %-15s  %s\n",
  366.          "Interface","IP address","Net Mask","Broadcast","Reasm Max (mib II)");
  367.          $done=1;
  368.     }
  369.          $_ = $1;
  370.          printf("  %2d       %-15s %-15s %-15s  %s\n",
  371.         $ip{"ipAdEntIfIndex[$_]"},
  372.                 $_,
  373.         $ip{"ipAdEntNetMask[$_]"},
  374.         $ip{"ipAdEntBcastAddr[$_]"},
  375.         $ip{"ipAdEntReasmMaxSize[$_]"});
  376.       }
  377.   }
  378.  
  379.   $done=0;
  380.   foreach (keys %ip) {
  381.  
  382.       if (/^ipRouteDest\[([^]]*)/) {
  383.     if (!$done) {
  384.     print "\n";
  385.          print " "*25,"Routing Table\n";
  386.  
  387.          printf("%-15s %7s  %-15s %-7s  %s\n","Destination","Interface","Next Hop","Type","Mask (mib II)");
  388.          $done=1;
  389.     }
  390.          $_ = $1;
  391.          printf("%-15s    %2d      %-15s %-7s  %s\n",
  392.                 $_,
  393.         $ip{"ipRouteIfIndex[$_]"},
  394.         $ip{"ipRouteNextHop[$_]"},
  395.         $ifRouteType2a{$ip{"ipRouteType[$_]"}},
  396.         $ip{"ipRouteMask[$_]"});
  397.       }
  398.   }
  399.  
  400. $done=0;
  401.   foreach (keys %ip) {
  402.       if (/^ipNetToMediaIfIndex\[([^]]*)/) {
  403. if (!$done) {
  404.          print "\n";
  405.          print " "*15,"Net to Media Table (ARP cache)\n";
  406.          printf(" %s   %-17s    %-15s  %s\n",
  407.            "Interface","Physical Address","IP Address","Type");
  408.    $done=1;
  409. }
  410.          $index = $_ = $1;
  411.          ($if,$ip) = /(\d+)\.(.*)/;
  412.          printf("   %2d        %-17s    %-15s  %s\n",
  413.                 $if,
  414.         $ip{"ipNetToMediaPhysAddress[$index]"},
  415.                 $ip,
  416.         $ipNetToMediaType2a{$ip{"ipNetToMediaType[$index]"}});
  417.       }
  418.   }
  419.     print "\n";
  420.  
  421. }
  422.  
  423.  
  424. sub dump_tcp {
  425.  
  426.   local($host) = @_;
  427.   local(*tcp);
  428.  
  429.   &get_table($host,"tcp",*tcp);
  430.  
  431.     print "\n";
  432.     print "Host: $host\nDate: $date\n";
  433.     print "\n";
  434.     print "       TCP Group\n";
  435.     print "\n";
  436. print "Retrans Algorithm    ",$tcpRtoAlgorithm2a{$tcp{"tcpRtoAlgorithm[0]"}},"\n";
  437. print "Retrans Min Timeout  ",$tcp{"tcpRtoMin[0]"},"\n";
  438. print "Retrans Max Timeout  ",$tcp{"tcpRtoMax[0]"},"\n";
  439. print "Max Connections      ",$tcp{"tcpMaxConn[0]"},"\n";
  440. print "Active Opens         ",$tcp{"tcpActiveOpens[0]"},"\n";
  441. print "Passive Opens        ",$tcp{"tcpPassiveOpens[0]"},"\n";
  442. print "Attempt Fails        ",$tcp{"tcpAttemptFails[0]"},"\n";
  443. print "Connection Resets    ",$tcp{"tcpEstabResets[0]"},"\n";
  444. print "Current Connections  ",$tcp{"tcpCurrEstab[0]"},"\n";
  445. print "Input Segments       ",$tcp{"tcpInSegs[0]"},"\n";
  446. print "Output Segments      ",$tcp{"tcpOutSegs[0]"},"\n";
  447. print "Retrans Segments     ",$tcp{"tcpRetransSegs[0]"},"\n";
  448. print "Input Errors         ",$tcp{"tcpInErrs[0]"},"\n";
  449. print "Output Resets        ",$tcp{"tcpOutRsts[0]"},"\n";
  450.  
  451.     print "\n";
  452. print " "*20,"TCP Connection Table\n";
  453. print " "*10,"Local "," "*20,"Remote\n";
  454.          printf("%-15s %5s      %-15s %5s    %s\n",
  455.                "Address","Port","Address","Port","State");
  456.   foreach (keys %tcp) {
  457.  
  458.       if (/^tcpConnState\[([^]]*)/) {
  459.          $_ = $index = $1;
  460.          ($lip,$lp,$rip,$rp) = 
  461.               /(\d+\.\d+\.\d+\.\d+)\.(\d+)\.(\d+\.\d+\.\d+\.\d+)\.(\d+)/;
  462.               $tcpConnState = $tcpConnState2a{$tcp{"tcpConnState[$index]"}};
  463.          printf("%-15s %5d      %-15s %5d    %s\n",
  464.                     $lip,$lp,$rip,$p,$tcpConnState);
  465.       }
  466.   }
  467.     print "\n";
  468. }
  469.  
  470.  
  471. sub dump_udp {
  472.  
  473.   local($host) = @_;
  474.   local(*udp);
  475.  
  476.   &get_table($host,"udp",*udp);
  477.  
  478.     print "\n";
  479.     print "Host: $host\nDate: $date\n";
  480.     print "\n";
  481.     print "       UDP Group\n";
  482.     print "\n";
  483.  
  484.     print "Input Datagrams   ", $udp{"udpInDatagrams[0]"}+0,"\n";
  485.     print "Input Errors      ", $udp{"udpInErrors[0]"}+0,"\n";
  486.     print "Unknown Dest Port ", $udp{"udpNoPorts[0]"}+0,"\n";
  487.     print "Output Datagrams  ", $udp{"udpOutDatagrams[0]"}+0,"\n";
  488.  
  489.   foreach (keys %udp) {
  490.  
  491.       if (/^udpLocalPort\[([^]]*)/) {
  492. if (!$done) {
  493.     print "\n";
  494. print " "*10,"UDP Table\n";
  495.          printf("%-15s %5s\n","Local Address","Local Port");
  496.  $done=1;
  497. }
  498.          $_ = $index = $1;
  499.          ($lip,$lp) =/(\d+\.\d+\.\d+\.\d+)\.(\d+)/;
  500.          printf("%-15s    %5d\n",$lip,$lp);
  501.       }
  502.   }
  503.     print "\n";
  504. }
  505.  
  506.  
  507.  
  508. sub dump_icmp {
  509.  
  510.   local($host) = @_;
  511.   local(*icmp);
  512.  
  513.   &get_table($host,"icmp",*icmp);
  514.  
  515.     print "\n";
  516.     print "Host: $host\nDate: $date\n";
  517.     print "\n";
  518.     print " "*30,"ICMP Group\n";
  519.  
  520.     print "\n";
  521.     printf("                           Input         Output\n");
  522.     printf(" Messages           %12d   %12d\n", $icmp{"icmpInMsgs[0]"}, $icmp{"icmpOutMsgs[0]"});
  523.     printf(" Errors             %12d   %12d\n", $icmp{"icmpInErrors[0]"}, $icmp{"icmpOutErrors[0]"});
  524.     printf(" Dest unreach       %12d   %12d\n", $icmp{"icmpInDestUnreachs[0]"}, $icmp{"icmpOutDestUnreachs[0]"});
  525.     printf(" Time exceeds       %12d   %12d\n", $icmp{"icmpInTimeExcds[0]"}, $icmp{"icmpInTOuteExcds[0]"});
  526.     printf(" Parm problems      %12d   %12d\n", $icmp{"icmpInParmProbs[0]"}, $icmp{"icmpOutParmProbs[0]"});
  527.     printf(" Source Quenchs     %12d   %12d\n", $icmp{"icmpInSrcQuenchs[0]"}, $icmp{"icmpOutSrcQuenchs[0]"});
  528.     printf(" Redirects          %12d   %12d\n", $icmp{"icmpInRedirects[0]"}, $icmp{"icmpInRedOutects[0]"});
  529.     printf(" Echos              %12d   %12d\n", $icmp{"icmpInEchos[0]"}, $icmp{"icmpOutEchos[0]"});
  530.     printf(" Echo reps          %12d   %12d\n", $icmp{"icmpInEchoReps[0]"}, $icmp{"icmpOutEchoReps[0]"});
  531.     printf(" Timestamps         %12d   %12d\n", $icmp{"icmpInTimestamps[0]"}, $icmp{"icmpInTOutestamps[0]"});
  532.     printf(" Timestamp reps     %12d   %12d\n", $icmp{"icmpInTimestampReps[0]"}, $icmp{"icmpInTOutestampReps[0]"});
  533.     printf(" Address masks      %12d   %12d\n", $icmp{"icmpInAddrMasks[0]"}, $icmp{"icmpOutAddrMasks[0]"});
  534.     printf(" Address mask reps  %12d   %12d\n", $icmp{"icmpInAddrMaskReps[0]"}, $icmp{"icmpOutAddrMaskReps[0]"});
  535.  
  536.  
  537.  
  538.     print "\n";
  539. }
  540.  
  541.  
  542. sub get_table { 
  543.     local($host,$t,*table) = @_;
  544.  
  545.  open(SNMP,"echo '$t\[]' | $snmp_table $host|");
  546.  while(<SNMP>) {
  547.     chop;
  548.     /^(.*)=(.*)$/;
  549.     $table{$1} = $2;
  550.  }
  551. }
  552.  
  553.  
  554. 1;
  555.